if(Sys.info()['user'] == 'dbroock') {
  setwd("~/Dropbox/Broockman-Kaufman-Lenz Roll Call Look Up and Heuristics Experiments/")
} else {
  setwd("c:/gl/Dropbox/Roll Call Look Up/")
}
setwd("Replication/March 2020 Replication Study/data/raw")

library(tidyverse)

read.csv("full.csv", skip = 1, stringsAsFactors = FALSE) %>%
  select(-c(1:17)) %>%
  select(-zip, -endcomments, -rid, -starts_with('sean_'), -starts_with('sp')) %>%
  slice(-1) %>%
  write.csv('heuristics_march2020_data_pii_removed.csv', row.names = F)


